<%@ page language="java" import="java.util.*" pageEncoding="UTF-8"%>
<HTML>
<HEAD>
<body>
<div style="width:100%;background-color: white;">
<FORM name=xh action="" method=post>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
    <td>
<br>
<TABLE style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
 
<TBODY>
  <TR>
    <TD width="60%">百位:<INPUT type=checkbox value=0 name=nb>0<INPUT 
      type=checkbox value=1 name=nb>1<INPUT type=checkbox value=2 
      name=nb>2<INPUT type=checkbox value=3 name=nb>3<INPUT type=checkbox 
      value=4 name=nb>4<INPUT type=checkbox value=5 name=nb>5<INPUT 
      type=checkbox value=6 name=nb>6<INPUT type=checkbox value=7 
      name=nb>7<INPUT type=checkbox value=8 name=nb>8<INPUT type=checkbox 
      value=9 name=nb>9 <INPUT type=button value=全选 name=nbqx> <INPUT type=button value=全不选 name=nbqbx><BR>十位:<INPUT type=checkbox         
      value=0 name=ns>0<INPUT type=checkbox value=1 name=ns>1<INPUT 
      type=checkbox value=2 name=ns>2<INPUT type=checkbox value=3 
      name=ns>3<INPUT type=checkbox value=4 name=ns>4<INPUT type=checkbox 
      value=5 name=ns>5<INPUT type=checkbox value=6 name=ns>6<INPUT 
      type=checkbox value=7 name=ns>7<INPUT type=checkbox value=8 
      name=ns>8<INPUT type=checkbox value=9 name=ns>9 <INPUT type=button value=全选 name=nsqx> <INPUT type=button value=全不选 name=nsqbx><BR>个位:<INPUT type=checkbox         
      value=0 name=ng>0<INPUT type=checkbox value=1 name=ng>1<INPUT 
      type=checkbox value=2 name=ng>2<INPUT type=checkbox value=3 
      name=ng>3<INPUT type=checkbox value=4 name=ng>4<INPUT type=checkbox 
      value=5 name=ng>5<INPUT type=checkbox value=6 name=ng>6<INPUT 
      type=checkbox value=7 name=ng>7<INPUT type=checkbox value=8 
      name=ng>8<INPUT type=checkbox value=9 name=ng>9 <INPUT type=button value=全选 name=ngqx> <INPUT type=button value=全不选 name=ngqbx></TD>        
    <TD width="40%" bgColor=#F6F6F6>
      <P align=center><BR>
        <INPUT type=button value="生 成 大 底 " name=dd></P></TD></TR></TBODY></TABLE>
             
<DIV align=center>
<TABLE id=table1 cellSpacing=0 cellPadding=0   width=800 bgColor=#CCCCCC 
  border=0>
  <TBODY>
  <TR>
  <TD bgColor=#c1ffff><TEXTAREA style="WIDTH: 99%" style="height:200"name=num3d rows=20 cols="20"></TEXTAREA></TD></TR>
  <TR>
    <TD><INPUT type=button value="单 变 组 " name=numtxtdbs></TR></TBODY></TABLE></DIV>
    
<TABLE id=table13 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
      <TD width="54%" rowSpan=2><INPUT type=checkbox value=0 name=cpls>000     
      <INPUT type=checkbox value=1 name=cpls>001 <INPUT type=checkbox value=2     
      name=cpls>002 <INPUT type=checkbox value=3 name=cpls>010 <INPUT     
      type=checkbox value=4 name=cpls>011 <INPUT type=checkbox value=5     
      name=cpls>012 <INPUT type=checkbox value=6 name=cpls>020 <INPUT     
      type=checkbox value=7 name=cpls>021 <INPUT type=checkbox value=8     
      name=cpls>022<BR><INPUT type=checkbox value=9 name=cpls>100 <INPUT     
      type=checkbox value=10 name=cpls>101 <INPUT type=checkbox value=11     
      name=cpls>102 <INPUT type=checkbox value=12 name=cpls>110 <INPUT     
      type=checkbox value=13 name=cpls>111 <INPUT type=checkbox value=14     
      name=cpls>112 <INPUT type=checkbox value=15 name=cpls>120 <INPUT     
      type=checkbox value=16 name=cpls>121 <INPUT type=checkbox value=17     
      name=cpls>122<BR><INPUT type=checkbox value=18 name=cpls>200 <INPUT     
      type=checkbox value=19 name=cpls>201 <INPUT type=checkbox value=20     
      name=cpls>202 <INPUT type=checkbox value=21 name=cpls>210 <INPUT     
      type=checkbox value=22 name=cpls>211 <INPUT type=checkbox value=23     
      name=cpls>212 <INPUT type=checkbox value=24 name=cpls>220 <INPUT     
      type=checkbox value=25 name=cpls>221 <INPUT type=checkbox value=26     
      name=cpls>222</TD>
    <TD bgColor=#F6F6F6>
      <P align=left>&nbsp;     
      </P></TD></TR>
  <TR>
    <TD bgColor=#F6F6F6>
      <P 
  align=center><INPUT type=button value=过虑012路 name=lsbt></P></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE id=table4 height=2 cellSpacing=0 cellPadding=0 width=800 bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px">&nbsp;</TD></TR></TBODY></TABLE></DIV>
<TABLE 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
    
    <TD width="54%"><INPUT type=checkbox value=0 name=cpzh>00<INPUT 
      type=checkbox value=1 name=cpzh>01<INPUT type=checkbox value=2 
      name=cpzh>02<INPUT type=checkbox value=3 name=cpzh>03<INPUT type=checkbox 
      value=4 name=cpzh>04<INPUT type=checkbox value=5 name=cpzh>05<INPUT 
      type=checkbox value=6 name=cpzh>06<INPUT type=checkbox value=7 
      name=cpzh>07<INPUT type=checkbox value=8 name=cpzh>08<INPUT type=checkbox 
      value=9 name=cpzh>09<INPUT type=checkbox value=10 name=cpzh>11<BR><INPUT 
      type=checkbox value=11 name=cpzh>12<INPUT type=checkbox value=12 
      name=cpzh>13<INPUT type=checkbox value=13 name=cpzh>14<INPUT type=checkbox 
      value=14 name=cpzh>15<INPUT type=checkbox value=15 name=cpzh>16<INPUT 
      type=checkbox value=16 name=cpzh>17<INPUT type=checkbox value=17 
      name=cpzh>18<INPUT type=checkbox value=18 name=cpzh>19<INPUT type=checkbox 
      value=19 name=cpzh>22<INPUT type=checkbox value=20 name=cpzh>23<INPUT 
      type=checkbox value=21 name=cpzh>24<BR><INPUT type=checkbox value=22 
      name=cpzh>25<INPUT type=checkbox value=23 name=cpzh>26<INPUT type=checkbox 
      value=24 name=cpzh>27<INPUT type=checkbox value=25 name=cpzh>28<INPUT 
      type=checkbox value=26 name=cpzh>29<INPUT type=checkbox value=27 
      name=cpzh>33<INPUT type=checkbox value=28 name=cpzh>34<INPUT type=checkbox 
      value=29 name=cpzh>35<INPUT type=checkbox value=30 name=cpzh>36<INPUT 
      type=checkbox value=31 name=cpzh>37<INPUT type=checkbox value=32 
      name=cpzh>38<BR><INPUT type=checkbox value=33 name=cpzh>39<INPUT 
      type=checkbox value=34 name=cpzh>44<INPUT type=checkbox value=35 
      name=cpzh>45<INPUT type=checkbox value=36 name=cpzh>46<INPUT type=checkbox 
      value=37 name=cpzh>47<INPUT type=checkbox value=38 name=cpzh>48<INPUT 
      type=checkbox value=39 name=cpzh>49<INPUT type=checkbox value=40 
      name=cpzh>55<INPUT type=checkbox value=41 name=cpzh>56<INPUT type=checkbox 
      value=42 name=cpzh>57<INPUT type=checkbox value=43 name=cpzh>58<BR><INPUT 
      type=checkbox value=44 name=cpzh>59<INPUT type=checkbox value=45 
      name=cpzh>66<INPUT type=checkbox value=46 name=cpzh>67<INPUT type=checkbox 
      value=47 name=cpzh>68<INPUT type=checkbox value=48 name=cpzh>69<INPUT 
      type=checkbox value=49 name=cpzh>77<INPUT type=checkbox value=50 
      name=cpzh>78<INPUT type=checkbox value=51 name=cpzh>79<INPUT type=checkbox 
      value=52 name=cpzh>88<INPUT type=checkbox value=53 name=cpzh>89<INPUT 
      type=checkbox value=54 name=cpzh>99</TD>
    <TD bgColor=#F6F6F6>　　
      <P align=center><!--<INPUT type=checkbox value=10 name=cpzhfx>反选<BR>-->
      &nbsp;<INPUT type=button value=组合过虑 name=zhbt></P></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE id=table5 height=2 cellSpacing=0 cellPadding=0 width=800 bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></TD></TR></TBODY></TABLE></DIV>
<TABLE 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
    
    <TD width="54%" rowSpan=2><INPUT type=checkbox value=0 name=sumgl>0 <INPUT     
      type=checkbox value=1 name=sumgl> 1 <INPUT type=checkbox value=2     
      name=sumgl> 2 <INPUT type=checkbox value=3 name=sumgl> 3 <INPUT     
      type=checkbox value=4 name=sumgl> 4 <INPUT type=checkbox value=5     
      name=sumgl> 5 <INPUT type=checkbox value=6 name=sumgl> 6 <INPUT     
      type=checkbox value=7 name=sumgl> 7 <INPUT type=checkbox value=8     
      name=sumgl>8 <INPUT type=checkbox value=9 name=sumgl>9<BR><INPUT     
      type=checkbox value=10 name=sumgl>10 <INPUT type=checkbox value=11     
      name=sumgl>11 <INPUT type=checkbox value=12 name=sumgl>12 <INPUT     
      type=checkbox value=13 name=sumgl>13 <INPUT type=checkbox value=14     
      name=sumgl>14 <INPUT type=checkbox value=15 name=sumgl>15 <INPUT     
      type=checkbox value=16 name=sumgl>16 <INPUT type=checkbox value=17     
      name=sumgl>17 <INPUT type=checkbox value=18 name=sumgl>18<BR><INPUT     
      type=checkbox value=19 name=sumgl>19 <INPUT type=checkbox value=20     
      name=sumgl>20 <INPUT type=checkbox value=21 name=sumgl>21 <INPUT     
      type=checkbox value=22 name=sumgl>22 <INPUT type=checkbox value=23     
      name=sumgl>23 <INPUT type=checkbox value=24 name=sumgl>24 <INPUT     
      type=checkbox value=25 name=sumgl>25 <INPUT type=checkbox value=26     
      name=sumgl>26 <INPUT type=checkbox value=27 name=sumgl>27</TD>    
    <TD bgColor=#F6F6F6>
      <P align=center>　　<BR>
       <INPUT type=checkbox value=1 name=c3y1>除3余1&nbsp;&nbsp;
       <INPUT type=checkbox value=2 name=c3y2>除3余2&nbsp;&nbsp;
       <INPUT type=checkbox value=0 name=c3y0>除3余0</P></TD></TR>
  <TR>
    <TD bgColor=#F6F6F6>
      <P 
  align=center><INPUT type=button value=和值过虑 name=cpsum></P></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE id=table6 height=2 cellSpacing=0 cellPadding=0 width=800 bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></TD></TR></TBODY></TABLE></DIV>
<TABLE 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
    
    <TD width="54%"><INPUT type=checkbox value=0 name=kd>0 <INPUT     
      type=checkbox value=1 name=kd>1 <INPUT type=checkbox value=2 name=kd>2     
      <INPUT type=checkbox value=3 name=kd>3 <INPUT type=checkbox value=4     
      name=kd>4 <INPUT type=checkbox value=5 name=kd>5 <INPUT type=checkbox     
      value=6 name=kd>6 <INPUT type=checkbox value=7 name=kd>7 <INPUT     
      type=checkbox value=8 name=kd>8 <INPUT type=checkbox value=9 name=kd>9</TD>    
    <TD bgColor=#F6F6F6>
      <P align=center><BR><INPUT type=button value=跨度过虑 name=kdbt></P></TD></TR></TBODY></TABLE>
<TABLE id=table12 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
   
    <TD width="54%"><INPUT type=checkbox value=0 name=xd>0 <INPUT     
      type=checkbox value=1 name=xd>1 <INPUT type=checkbox value=2 name=xd>2     
      <INPUT type=checkbox value=3 name=xd>3 <INPUT type=checkbox value=4     
      name=xd>4 <INPUT type=checkbox value=5 name=xd>5 <INPUT type=checkbox     
      value=6 name=xd>6 <INPUT type=checkbox value=7 name=xd>7 <INPUT     
      type=checkbox value=8 name=xd>8 <INPUT type=checkbox value=9 name=xd>9</TD>    
    <TD bgColor=#F6F6F6>
      <P align=center><BR><INPUT type=button value=选胆过虑 name=xdbt></P></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE id=table7 height=2 cellSpacing=0 cellPadding=0 width=800 bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></TD></TR></TBODY></TABLE></DIV>
<TABLE 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
    
    <TD width="54%"><INPUT type=checkbox value=0 name=cpds>奇奇奇 <INPUT 
      type=checkbox value=1 name=cpds>奇奇偶 <INPUT type=checkbox value=2 
      name=cpds>奇偶奇 <INPUT type=checkbox value=3 name=cpds>奇偶偶<BR><INPUT 
      type=checkbox value=4 name=cpds>偶奇奇 <INPUT type=checkbox value=5 
      name=cpds>偶偶奇 <INPUT type=checkbox value=6 name=cpds>偶奇偶 <INPUT 
      type=checkbox value=7 name=cpds>偶偶偶</TD>
    <TD bgColor=#F6F6F6>
      <P align=center><BR><INPUT type=button value=奇偶过虑 name=dsbt></P></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE id=table8 height=2 cellSpacing=0 cellPadding=0 width=800 bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></TD></TR></TBODY></TABLE></DIV>
<TABLE 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
    
    <TD width="54%"><INPUT type=checkbox value=0 name=cpdx>大大大 <INPUT 
      type=checkbox value=1 name=cpdx>大大小 <INPUT type=checkbox value=2 
      name=cpdx>大小大 <INPUT type=checkbox value=3 name=cpdx>小大大<BR><INPUT 
      type=checkbox value=4 name=cpdx>大小小 <INPUT type=checkbox value=5 
      name=cpdx>小大小 <INPUT type=checkbox value=6 name=cpdx>小小大 <INPUT 
      type=checkbox value=7 name=cpdx>小小小</TD>
    <TD bgColor=#F6F6F6>
      <P align=center><BR><INPUT type=button value=大小过虑 name=dxbt></P></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE id=table9 height=2 cellSpacing=0 cellPadding=0 width=800 bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></TD></TR></TBODY></TABLE></DIV>
<TABLE id=table2 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
    
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" width="54%" 
      rowSpan=2><INPUT type=checkbox value=0 name=zhgl>质质质 <INPUT type=checkbox 
      value=1 name=zhgl>质质合 <INPUT type=checkbox value=2 name=zhgl>质合质 <INPUT 
      type=checkbox value=3 name=zhgl>合质质<BR><INPUT type=checkbox value=4 
      name=zhgl>合质合 <INPUT type=checkbox value=5 name=zhgl>合合质 <INPUT 
      type=checkbox value=6 name=zhgl>质合合 <INPUT type=checkbox value=7 
      name=zhgl>合合合</TD>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" bgColor=#F6F6F6>
      <P 
    align=left><BR>　</P></TD></TR>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" bgColor=#F6F6F6>
      <P 
  align=center><INPUT type=button value=质合过虑 name=zshbt></P></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE id=table10 height=2 cellSpacing=0 cellPadding=0 width=800 bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></TD></TR></TBODY></TABLE></DIV>
<TABLE id=table3 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
   <td>
<TABLE id=table11 
style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOP: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" 
cellSpacing=0 cellPadding=0 width=800 align=center bgColor=#fffdf4>
  <TBODY>
  <TR>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" width="49%"><INPUT 
      type=checkbox value=1 name=qtz3gl>组三 <INPUT type=checkbox value=2 
      name=qtz6gl>组六 <INPUT type=checkbox value=2 name=qtbzgl>豹子</TD>
    <TD style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" bgColor=#F6F6F6>
    <P align=center><INPUT type=button value=过虑 name=qtnumbt></P></TD></TR></TBODY>
  </TABLE>
  <br></td>
  </tr>
</table>
<SCRIPT language=vbscript>
  dim nbnb,nbns,nbng,cpzs,cpnum,cpnumb,cpnums,cpnumg,cpsnum,numsum3d,cpnumber
  dim cpnumall(999)
  cpzs=0
  sub dispplaynum3d
  cpsnum="" 
  cpnumber=0
  for i=0 to 999
  if cpnumall(i)<>empty then
  cpnumber=cpnumber+1
  cpsnum=cpsnum+" "+cpnumall(i)
  end if
  next
    xh.num3d.value=""
    xh.num3d.value=trim(cpsnum)&CHR(10)&chr(10)&"经过虑后还剩"&cpnumber&"注。购买需要现金："&cpnumber*2
  end sub
  
  sub kdbt_onclick
   for i=0 to 9
    if xh.kd(i).checked=true then
     for ii=0 to 999
      if cpnumall(ii)<>empty then
       numkdb=cint(mid(cpnumall(ii),1,1))
       numkds=cint(mid(cpnumall(ii),2,1))
       numkdg=cint(mid(cpnumall(ii),3,1))
       if numkdb>=numkds and numkds>=numkdg then kdz=numkdb-numkdg
       if numkdb>=numkdg and numkdg>=numkds then kdz=numkdb-numkds
       if numkdg>=numkdb and numkdb>=numkds then kdz=numkdg-numkds
       if numkdg>=numkds and numkds>=numkdb then kdz=numkdg-numkdb
       if numkds>=numkdb and numkdb>=numkdg then kdz=numkds-numkdg
       if numkds>=numkdg and numkdg>=numkdb then kdz=numkds-numkdb
       if cint(kdz)=cint(i) then cpnumall(ii)=empty
      end if
     next
    end if
   next
   call dispplaynum3d
  end sub
  
  sub numtxtdbs_onclick
   for i=0 to 999
    if cpnumall(i)<>empty then
       numzd1w=mid(cpnumall(i),1,1)
       numzd2w=mid(cpnumall(i),2,1)
       numzd3w=mid(cpnumall(i),3,1)
     if numzd1w<>numzd2w and numzd2w<>numzd3w and numzd1w<>numzd3w then
       cpnumall(cint(numzd1w&numzd3w&numzd2w))=empty
       cpnumall(cint(numzd2w&numzd1w&numzd3w))=empty
       cpnumall(cint(numzd2w&numzd3w&numzd1w))=empty
       cpnumall(cint(numzd3w&numzd1w&numzd2w))=empty
       cpnumall(cint(numzd3w&numzd2w&numzd1w))=empty
     else
      if numzd1w=numzd2w and numzd1w=numzd3w then
        cpnumall(i)=cpnumall(i)
      else
      if numzd1w=numzd2w then
        cpnumall(cint(numzd3w&numzd1w&numzd2w))=empty
        cpnumall(cint(numzd1w&numzd3w&numzd2w))=empty
      end if
      if numzd1w=numzd3w then
       cpnumall(cint(numzd1w&numzd3w&numzd2w))=empty
       cpnumall(cint(numzd2w&numzd1w&numzd3w))=empty
      end if
      if numzd2w=numzd3w then
       cpnumall(cint(numzd2w&numzd1w&numzd3w))=empty
       cpnumall(cint(numzd2w&numzd3w&numzd1w))=empty
      end if
      end if


     end if
    end if
   next
   call dispplaynum3d
  end sub
  
  sub c3y0_onclick
   for i=0 to 27
    if i mod 3 = 0 then
     if xh.c3y0.checked=true then
     xh.sumgl(i).checked=true
     else
     xh.sumgl(i).checked=false
     end if
    end if
   next
  end sub
  
   sub c3y1_onclick
   for i=0 to 27
    if i mod 3 = 1 then
     if xh.c3y1.checked=true then
     xh.sumgl(i).checked=true
     else
     xh.sumgl(i).checked=false
     end if
    end if
   next
  end sub
  
   sub c3y2_onclick
   for i=0 to 27
    if i mod 3 = 2 then
     if xh.c3y2.checked=true then
     xh.sumgl(i).checked=true
     else
     xh.sumgl(i).checked=false
     end if
    end if
   next
  end sub
  
  sub lsbt_onclick
   if xh.cpls(0).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
    if xh.cpls(1).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
       if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
       end if
     end if
    next
   end if
   
   if xh.cpls(2).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(3).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(4).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(5).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(6).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(7).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(8).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(9).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(10).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(11).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(12).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(13).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(14).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(15).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(16).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(17).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(18).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(19).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(20).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(21).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(22).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(23).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(24).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(25).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(26).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  call dispplaynum3d
  end sub
  
  sub zhbt_onclick
  dim zhl(99)
  zhl(0)="00"
  zhl(1)="01"
  zhl(2)="02"
  zhl(3)="03"
  zhl(4)="04"
  zhl(5)="05"
  zhl(6)="06"
  zhl(7)="07"
  zhl(8)="08"
  zhl(9)="09"
  for i=10 to 99
  zhl(i)=cstr(i)
  next
  n=1
  zi=0
  for i=0 to 54
   if xh.cpzh(i).checked=true then
   if mid(zhl(zi),1,1)=mid(zhl(zi),2,1) then
   
   for ii=0 to 999
     if cpnumall(ii)<>empty then
     iiiin=0
       for iiii=1 to 3
        if cstr(mid(cpnumall(ii),iiii,1))=cstr(mid(zhl(zi),1,1)) then iiiin=iiiin+1
       next
        if iiiin>1 then cpnumall(ii)=empty
     end if
    next

   
   else
    for ii=0 to 999
     if cpnumall(ii)<>empty then
       if instr(cpnumall(ii),cstr(mid(zhl(zi),1,1)))<>0 and instr(cpnumall(ii),cstr(mid(zhl(zi),2,1)))<>0 then
         cpnumall(ii)=empty
       end if
     end if
    next
    end if
   end if
   if right(zhl(zi),1)="9" then
   zi=cstr(cint(zi)+n)
   n=n+1
   end if
   zi=zi+1
  next
  
  call dispplaynum3d
  end sub
  
  sub nbqx_onclick
    for i=0 to 9
        xh.nb(i).checked=true
    next
  end sub
  sub nbqbx_onclick
    for i=0 to 9
        xh.nb(i).checked=false
    next
  end sub

  sub nsqx_onclick    
    for i=0 to 9
        xh.ns(i).checked=true
    next
  end sub
  sub nsqbx_onclick    
    for i=0 to 9
        xh.ns(i).checked=false
    next
  end sub
  
    sub ngqx_onclick    
    for i=0 to 9
        xh.ng(i).checked=true
    next
  end sub
  sub ngqbx_onclick    
    for i=0 to 9
        xh.ng(i).checked=false
    next
  end sub
  
  sub dd_onclick
  for i=0 to 999
  cpnumall(i)=empty
  next
  nbnb=""
  nbns=""
  nbng=""
  cpsnum=""
    for i=0 to 9
     if xh.nb(i).checked=true then
     nbnb=nbnb+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.ns(i).checked=true then
     nbns=nbns+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.ng(i).checked=true then
     nbng=nbng+cstr(i)
     end if
    next
    
    for i=1 to len(nbnb)
      cpnumb=mid(nbnb,i,1)
       for ii=1 to len(nbns)
        cpnums=mid(nbns,ii,1)
         for iii=1 to len(nbng)
         cpnumg=mid(nbng,iii,1)
         cpnum=cstr(cpnumb)+cstr(cpnums)+cstr(cpnumg)
         cpnumall(cint(cpnum))=cpnum
         cpsnum=cpsnum+" "+cpnum
         next
       next
    next
    
      cpzs=len(nbnb)*len(nbns)*len(nbng)
      xh.num3d.value="你选择的大底复式为:"&nbnb&"+"&nbns&"+"&nbng& "共计:"&cpzs&"注,"&cpzs*2&"元."&chr(10)&chr(10)&trim(cpsnum)
  end sub
  sub kdgl_onclick
    if xh.kd(0).checked=true then
    call kd0
    end if
  cpsnum=""
  for i=0 to 999
  if cpnumall(i)<>empty then
  cpsnum=cpsnum+" "+cpnumall(i)
  xh.num3d.value=chr(10)&trim(cpsnum)
  end if
  next
  end sub
  sub cpsum_onclick
   for i=0 to 27
    if xh.sumgl(i).checked=true then
      for ii=0 to 999
       numsum3d=0
       for iii=1 to len(ii)
        numsum3d=numsum3d+mid(ii,iii,1)
       next
        if i=numsum3d then
         cpnumall(ii)=empty
        end if
      next
    end if
   next
   
  call dispplaynum3d
  end sub
  
  sub szbt_onclick
  dim asznum(6),bsznum(8)
   asznum(0)=102
   asznum(1)=123
   asznum(2)=234
   asznum(3)=345
   asznum(4)=567
   asznum(5)=678
   asznum(6)=789
   bsznum(0)=10
   bsznum(1)=12
   bsznum(3)=32
   bsznum(4)=34
   bsznum(5)=56
   bsznum(6)=67
   bsznum(7)=78
   bsznum(8)=89
   if xh.szgla.checked =true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      for ii=0 to 6
           if instr(cpnumall(i),mid(asznum(ii),1,1))<>0 and instr(cpnumall(i),mid(asznum(ii),2,1))<>0 and instr(cpnumall(i),mid(asznum(ii),3,1))<>0 then
           cpnumall(i)=empty
           exit for
           end if
      next
     end if
    next
   end if
   
   if xh.szglb.checked =true then

   call zhbt_onclick
   end if
   
   call dispplaynum3d
  end sub
  
  sub szglb_onclick
  for i=0 to 54
  xh.cpzh(i).checked=false
  next
  if xh.szglb.checked=true then
    xh.cpzh(1).checked=true
    xh.cpzh(11).checked=true
    xh.cpzh(20).checked=true
    xh.cpzh(27).checked=true
    xh.cpzh(35).checked=true
    xh.cpzh(41).checked=true
    xh.cpzh(46).checked=true
    xh.cpzh(50).checked=true
    xh.cpzh(53).checked=true
  else
   for i=0 to 54
    xh.cpzh(i).checked=false
   next
  end if
  end sub
  
  sub dsbt_onclick
   if xh.cpds(0).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=1 and cint(mid(cpnumall(i),2,1)) mod 2=1 and cint(mid(cpnumall(i),3,1)) mod 2=1 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(1).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=1 and cint(mid(cpnumall(i),2,1)) mod 2=1 and cint(mid(cpnumall(i),3,1)) mod 2=0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(2).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=1 and cint(mid(cpnumall(i),2,1)) mod 2=0 and cint(mid(cpnumall(i),3,1)) mod 2=1 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(3).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=1 and cint(mid(cpnumall(i),2,1)) mod 2=0 and cint(mid(cpnumall(i),3,1)) mod 2=0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(4).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=0 and cint(mid(cpnumall(i),2,1)) mod 2=1 and cint(mid(cpnumall(i),3,1)) mod 2=1 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(5).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=0 and cint(mid(cpnumall(i),2,1)) mod 2=0 and cint(mid(cpnumall(i),3,1)) mod 2=1 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(6).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=0 and cint(mid(cpnumall(i),2,1)) mod 2=1 and cint(mid(cpnumall(i),3,1)) mod 2=0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(7).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=0 and cint(mid(cpnumall(i),2,1)) mod 2=0 and cint(mid(cpnumall(i),3,1)) mod 2=0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   call dispplaynum3d
  end sub
  
  sub dxbt_onclick
   if xh.cpdx(0).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))>4 and cint(mid(cpnumall(i),2,1))>4 and cint(mid(cpnumall(i),3,1))>4 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(1).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))>4 and cint(mid(cpnumall(i),2,1))>4 and cint(mid(cpnumall(i),3,1))<5 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(2).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))>4 and cint(mid(cpnumall(i),2,1))<5 and cint(mid(cpnumall(i),3,1))>4 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(3).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))<5 and cint(mid(cpnumall(i),2,1))>4 and cint(mid(cpnumall(i),3,1))>4 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(4).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))>4 and cint(mid(cpnumall(i),2,1))<5 and cint(mid(cpnumall(i),3,1))<5 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(5).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))<5 and cint(mid(cpnumall(i),2,1))>4 and cint(mid(cpnumall(i),3,1))<5 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(6).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))<5 and cint(mid(cpnumall(i),2,1))<5 and cint(mid(cpnumall(i),3,1))>4 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(7).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))<5 and cint(mid(cpnumall(i),2,1))<5 and cint(mid(cpnumall(i),3,1))<5 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   call dispplaynum3d
  end sub
  
  sub zshbt_onclick
   if xh.zhgl(0).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("12357",mid(cpnumall(i),1,1))<>0 and instr("12357",mid(cpnumall(i),2,1))<>0 and instr("12357",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(1).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("12357",mid(cpnumall(i),1,1))<>0 and instr("12357",mid(cpnumall(i),2,1))<>0 and instr("04689",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(2).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("12357",mid(cpnumall(i),1,1))<>0 and instr("04689",mid(cpnumall(i),2,1))<>0 and instr("12357",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(3).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("04689",mid(cpnumall(i),1,1))<>0 and instr("12357",mid(cpnumall(i),2,1))<>0 and instr("12357",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(4).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("04689",mid(cpnumall(i),1,1))<>0 and instr("12357",mid(cpnumall(i),2,1))<>0 and instr("04689",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(5).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("04689",mid(cpnumall(i),1,1))<>0 and instr("04689",mid(cpnumall(i),2,1))<>0 and instr("12357",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(6).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("12357",mid(cpnumall(i),1,1))<>0 and instr("04689",mid(cpnumall(i),2,1))<>0 and instr("04689",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(7).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("04689",mid(cpnumall(i),1,1))<>0 and instr("04689",mid(cpnumall(i),2,1))<>0 and instr("04689",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   call dispplaynum3d
  end sub
  
  sub cpzhfx_onclick
   for i=0 to 54
    if xh.cpzh(i).checked=true then
    xh.cpzh(i).checked=false
    else
    xh.cpzh(i).checked=true
    end if
   next
  end sub
  
  sub qtnumbt_onclick
   if xh.qtz3gl.checked=true then
    for i=0 to 999
    if cpnumall(i)<>empty then
     if mid(cpnumall(i),1,1)=mid(cpnumall(i),2,1) or mid(cpnumall(i),1,1)=mid(cpnumall(i),3,1) or mid(cpnumall(i),2,1)=mid(cpnumall(i),3,1) then
      if mid(cpnumall(i),1,1)=mid(cpnumall(i),2,1) and mid(cpnumall(i),2,1)=mid(cpnumall(i),3,1) then
      cpnumall(i)=cpnumall(i)
      else
      cpnumall(i)=empty
      end if
     end if
    end if
    next
   end if
   
   if xh.qtz6gl.checked=true then
    for i=0 to 999
    if cpnumall(i)<>empty then
     if mid(cpnumall(i),1,1)<>mid(cpnumall(i),2,1) and mid(cpnumall(i),1,1)<>mid(cpnumall(i),3,1) and mid(cpnumall(i),2,1)<>mid(cpnumall(i),3,1) then
      cpnumall(i)=empty
     end if
    end if
    next
   end if
   
  if xh.qtbzgl.checked=true then
    for i=0 to 999
    if cpnumall(i)<>empty then
     if mid(cpnumall(i),1,1)=mid(cpnumall(i),2,1) and mid(cpnumall(i),2,1)=mid(cpnumall(i),3,1) then
      cpnumall(i)=empty
     end if
    end if
    next
   end if
   
   call dispplaynum3d
  end sub
  sub xdbt_onclick
  dim xdnum
  xdnum=""
   for i=0 to 9
    if xh.xd(i).checked=true then
      xdnum=xdnum+cstr(i)
    end if
   next
   for i=0 to 999
   xdii=0
    for ii=1 to len(xdnum)
     if instr(cpnumall(i),mid(xdnum,ii,1))<>0 then
      xdii=xdii+1
     end if
    next
    if xdii=0 then
    cpnumall(i)=empty
    end if
   next
   call dispplaynum3d
  end sub
sub ljfs_onclick
  nbnub=""
  nbnus=""
  nbnug=""
  cpsnum=""
    for i=0 to 9
     if xh.nub(i).checked=true then
     nbnub=nbnub+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.nus(i).checked=true then
     nbnus=nbnus+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.nug(i).checked=true then
     nbnug=nbnug+cstr(i)
     end if
    next
    
    for i=1 to len(nbnub)
      cpnumb=mid(nbnub,i,1)
       for ii=1 to len(nbnus)
        cpnums=mid(nbnus,ii,1)
         for iii=1 to len(nbnug)
         cpnumg=mid(nbnug,iii,1)
         cpnum=cstr(cpnumb)+cstr(cpnums)+cstr(cpnumg)
         cpnumall(cint(cpnum))=empty
         next
       next
    next
   call dispplaynum3d
  end sub
  
  sub dwsbt_onclick
  dbnub=""
  dbnus=""
  dbnug=""
    for i=0 to 9
     if xh.dwsb(i).checked=true then
     dbnub=dbnub+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.dwss(i).checked=true then
     dbnus=dbnus+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.dwsg(i).checked=true then
     dbnug=dbnug+cstr(i)
     end if
    next
    
  for i=0 to 999
    for ib=1 to len(dbnub)
      if mid(cpnumall(i),1,1)=mid(dbnub,ib,1) then cpnumall(i)=empty
    next
    for si=1 to len(dbnus)
      if mid(cpnumall(i),2,1)=mid(dbnus,si,1) then cpnumall(i)=empty
    next
    for ig=1 to len(dbnug)
      if mid(cpnumall(i),3,1)=mid(dbnug,ig,1) then cpnumall(i)=empty
    next
  next    
   call dispplaynum3d
  end sub

</SCRIPT>
</td>
</tr>
</table>
</FORM>
</div>
</BODY></HTML>
